home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 38 / 038.d81 / jupiter jump (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  4.5 KB  |  140 lines
  1. 5 poke53248+21,.
  2. 10 ifa=.thena=1:load"jj.spr",8,1
  3. 20 hs=.
  4. 50 v=53248:pokev+21,.:sc=0:lv=1:lp=0:sh=3:sd=54272:rm=10
  5. 70 gosub800:gosub1000:poke53280,.:poke53281,.
  6. 75 pokev+39,1:pokev+40,13:pokev+41,10:pokev+42,14
  7. 80 print"[147]":pokev+21,0:printtab(2)"[159] score "tab(24)"[158] level "
  8. 90 printtab(3)sctab(27)lv:printtab(2)"[150] high  "tab(24)"[154] ships "
  9. 100 printtab(3)""hstab(27)sh
  10. 110 pokev+16,0:pokev+0,144:pokev+1,50:pokev+2,255:pokev+3,138:pokev+4,144
  11. 120 pokev+5,229:pokev+6,24:pokev+7,138:pokev+21,31
  12. 130 gosub700
  13. 140 yn=50:xe=255:ys=229:xw=24
  14. 142 print""tab(27)lv
  15. 145 iflv>15thene=14:n=22:w=18:s=int(rnd(5)*12)+12:goto195
  16. 150 iflv>3thene=int(rnd(5)*9)+9:s=8:w=12:n=int(rnd(6)*14)+12:goto195
  17. 155 iflv>1thenn=int(rnd(5)*6)+4:s=6:e=int(rnd(6)*8)+4:w=6:goto195
  18. 160 n=2:s=3:w=2:e=3
  19. 195 w1=peek(v+30)
  20. 200 pokev+1,yn:pokev+2,xe:pokev+5,ys:pokev+6,xw
  21. 202 lp=lp+1:iflp=40thenlv=lv+1:lp=0:goto110
  22. 205 jy=peek(56320)and15
  23. 210 ifjy=7thenpoke2044,210
  24. 211 ifjy=11thenpoke2044,211
  25. 212 ifjy=13thenpoke2044,209
  26. 213 ifjy=14thenpoke2044,208
  27. 214 goto400
  28. 215 yn=yn+n:xe=xe-e:ys=ys-s:xw=xw+w
  29. 218 w1=peek(v+30):ifw1>16then600
  30. 220 goto200
  31. 400 z=212-(peek(2044)):onzgoto410,440,470,500
  32. 410 print"[150]":tb=15
  33. 412 fort=1to10:printtab(tb)"[163][145]":tb=tb-1:next
  34. 415 w2=peek(v+31):ifw2=8thenc=42:gosub550
  35. 420 print"                ":pokev+6,24:xw=24:pokev+42,14
  36. 425 w2=peek(v+31):w1=peek(v+30):goto215
  37. 440 print"[150]":tb=20
  38. 442 fort=1to10:printtab(tb)"[163][145]":tb=tb+1:next
  39. 445 w2=peek(v+31):ifw2=2thenc=40:gosub550
  40. 450 print"[150]"tab(20)"          "
  41. 455 pokev+2,255:xe=255:pokev+40,13
  42. 460 w2=peek(v+31):w1=peek(v+30):goto215
  43. 470 print"[150]":fort=1to8:printtab(18)"[180]":next
  44. 475 w2=peek(v+31):ifw2=4thenc=41:gosub550
  45. 480 print"":fort=1to8:printtab(18)" ":next
  46. 485 pokev+5,229:ys=229:pokev+41,10
  47. 490 w2=peek(v+31):w1=peek(v+30):goto215
  48. 500 print"[150]":fort=1to8:printtab(18)"[180][145][145]":next
  49. 505 w2=peek(v+31):ifw2=1thenc=39:gosub550
  50. 510 print"[150]":fort=1to8:printtab(18)" [145][145]":next
  51. 515 pokev+1,50:yn=50:pokev+39,1
  52. 520 w2=peek(v+31):w1=peek(v+30):goto215
  53. 550 pokev+c,2:fort=0to20:next:pokev+c,1:pokesd+11,129:fort=0to20:next
  54. 552 pokesd+11,128
  55. 555 pokev+c,15:pokev+c,12:pokev+c,11:pokev+c,0
  56. 560 sc=sc+5+lv:print""tab(3)sc
  57. 565 return
  58. 600 fori=0to24:pokesd+i,0:next
  59. 602 ifw1=17thenx=2040:goto620
  60. 604 ifw1=18thenx=2041:goto620
  61. 606 ifw1=20thenx=2042:goto620
  62. 608 x=2043:goto620
  63. 620 pokev+43,2:pokesd+24,143:pokesd+5,16:pokesd+19,16:pokesd+6,252
  64. 622 pokesd+20,249:pokesd+4,21:pokesd+18,17:pokesd+1,68:pokesd+15,42
  65. 624 fori=0to200:next:pokesd+4,20:pokesd+18,16:fori=0to400:next:pokev+43,0
  66. 626 l=200
  67. 628 fort=0to80:pokex,l:l=l+1:ifl=208thenl=200
  68. 630 next
  69. 632 sh=sh-1:print""tab(27)sh:ifsh=0then650
  70. 634 pokex,200:pokev+43,15:goto110
  71. 650 fori=0to24:pokesd+i,0:next
  72. 652 pokesd+24,15:pokesd+5,80:pokesd+6,243:pokesd+3,7
  73. 654 forj=70to20step-1:pokesd+4,65:pokesd+1,j:fori=0to030:next:pokesd+4,64
  74. 656 fori=0to20:next:next
  75. 658 pokev+0,144:pokev+1,50:pokev+2,255:pokev+3,138:pokev+4,144
  76. 660 pokev+5,229:pokev+6,24:pokev+7,138
  77. 662 fort=0to30:print"[159]"tab(12)"           "
  78. 664 print""tab(12)" game over ":nextt
  79. 665 ifsc>hsthenhs=sc
  80. 668 print""hs
  81. 670 fora=1to2000:next:goto50
  82. 682 sc=0:lv=1:lp=0:sh=3:pokev+43,15:goto80
  83. 699 rem    choreography
  84. 700 restore
  85. 702 fori=0to24:pokesd+i,0:next
  86. 704 pokesd+1,15:pokesd+5,16:pokesd+6,240
  87. 705 reada:ifa=0then715
  88. 710 forx=2040to2043:pokex,a:next:pokesd+15,rm:pokesd+24,31:pokesd+4,21
  89. 712 rm=rm+1:ifrm=20thenrm=10
  90. 713 goto705
  91. 715 fori=0to24:pokesd+i,0:next
  92. 716 pokesd+24,15:pokesd+12,160:pokesd+13,252:pokesd+8,80:pokesd+7,40
  93. 718 pokesd+11,128:return
  94. 720 data 200,201,202,203,202,204,200,204,202,203,202,201,200
  95. 730 data 205,206,207,200,207,206,205,200
  96. 740 data 200,201,202,203,202,204,200,204,202,203,202,201,200,0
  97. 800 poke53281,14:poke53280,14
  98. 810 print"[147][153][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
  99. 812 fora=1to23:print"[221]"spc(38)"[221]";:next
  100. 814 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][157][148][192]"
  101. 816 fora=217to242:pokea,peek(a)or128:next
  102. 818 print"          loadstar presents:"
  103. 820 printtab(19)"the":printtab(9)"   "tab(20)" "
  104. 825 printtab(8)"   "tab(19)" [146]    "
  105. 830 printtab(9)"  [146]  [146]  [146]    [146]  [146]    [146]    [146]    "
  106. 835 printtab(8)"                [146]   [146][184]     "
  107. 840 printtab(7)"              [146]   [146]        "
  108. 845 printtab(7)"   [146]    [146]    [146]  [146]   [146]     [146]  [146]"
  109. 850 printtab(15)" "
  110. 860 printtab(14)"   ":printtab(13)"   "
  111. 865 printtab(14)"  [146]  [146]  [146] [223][146] [169][146]    "
  112. 870 printtab(13)"       [223]       "
  113. 875 printtab(12)"                "
  114. 880 printtab(12)"   [146]    [146]  [146]  [146]    ":printtab(24)" "
  115. 882 print"          by: james c. hilty"
  116. 884 print"            copyright 1987"
  117. 900 forx=2040to2043:pokex,200:next:pokev+39,1:pokev+40,1:pokev+41,6
  118. 910 pokev+42,6:pokev+0,45:pokev+1,150:pokev+16,6:pokev+2,25:pokev+3,150
  119. 920 pokev+4,20:pokev+5,155:pokev+6,40:pokev+7,155:pokev+29,15:pokev+43,15
  120. 930 pokev+8,156:pokev+9,138:poke2044,208:pokev+21,15
  121. 931 if(mm)thenprint:print:goto940
  122. 933 print"        press space to continue.":mm=1
  123. 935 ifpeek(203)<>60then935
  124. 937 print"[145][145][145]                                     "
  125. 938 print"                                     "
  126. 940 gosub700
  127. 950 return
  128. 1000 print"[145][145][145]        p - play jupiter jump"
  129. 1010 print"        q - quit"
  130. 1020 print"        press p or q."
  131. 1030 a=peek(203):ifa<>41anda<>62then1030
  132. 1040 ifa=41thenreturn
  133. 1050 gosub60000:goto1020
  134. 60000 print"[145] are you sure you want to quit? (y/n)"
  135. 60010 a=peek(203):ifa<>25anda<>39then60010
  136. 60020 ifa=39thenprint"[145]                                     [145]":return
  137. 60030 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  138. 60040 ifer<>63thenend
  139. 60050 pokev+21,.:load"hello connect",8
  140.